1 GOTO98
2 POKE53281,0:POKE53280,0
3 PRINT"[147]":PRINT""
4 PRINT"[154]                                   "
5 PRINT"    LABEL PRO 4.1 DOCUMENTATION    "
6 PRINT"[158]         (C) 1986 SHAREWARE        "
7 PRINT"      SEND $5 TO BE REGISTERED     "
8 PRINT"                                   "
9 RETURN
10 PRINT:PRINT"[158]     LABEL PRO 4.1 [146] IS AN ADVANCED "
11 PRINT"    LABEL DEVELOPMENT SYSTEM.  IT "
12 PRINT"    IS ALL WINDOW MENU DRIVEN COM-"
13 PRINT"    PLETE WITH HELP WINDOW.  THE"
14 PRINT"    SETUP WINDOW ALLOWS YOU TO SE-"
15 PRINT"    LECT A VARIETY OF SETTINGS FOR"
16 PRINT"    YOUR PRINTER INCLUDING FONTS +"
17 PRINT"    (LOADABLE FONTS) AVAILABLE FROM"
18 PRINT"    FONTMASTER I.                   "
19 PRINT"                                    "
20 PRINT"    THE PROGRAM ALLOWS YOU TO SELECT"
21 PRINT"    FROM 1 TO 8 LINE LABELS.  FROM "
22 PRINT"    THE MAIN MENU  CHOICES INCLUDE"
23 PRINT"    (E)DIT/CREATE, (S)ETUP PRINT, "
24 PRINT"    (L)INE NUMBER (NO. OF LINES),"
25 PRINT"    (C)REDITS, (P)RINT LABELS,     "
26 PRINT"    (H)ELP, AND (Q)UIT.           "
27 PRINT"            HIT  ANY  KEY [146]
28 [161] X$
29 [139] X$[178]"" [167] 28
30 [129] I[178]1[164] 500
31 [130]I
32 [151]198,0
33 [142]
34 [153]"SYS":[153]"    AFTER SELECTING (E)DIT/CREATE,"
35 [153]"    ENTER '+' IN FIRST COLUMN OF  "
36 [153]"    TEXT FOR EXPANDED PRINT, '-'"
37 [153]"    REGULAR PRINT, '_' - BLANK LINE."
38 [153]"    THEN SIMPLY ENTER YOUR TEXT.  TO"
39 [153]"    (E)DIT OR CHANGE TEXT, SELECT "
40 [153]"    (E)DIT/CREATE FROM THE MAIN MENU."
41 [153]"    THEN, TYPE OVER, INSERT, OR DE-"
42 [153]"    LETE TEXT, BEFORE PRESSING RETURN "
43 [153]"    FOR NEXT LINE OF TEXT.  DO NOT USE "
44 [153]"    CURSOR-UP/DOWN WHILE IN THIS MODE."
45 [153]"    IF YOU NEED (H)ELP, MAKE THAT"
46 [153]"    SELECTION FROM THE MAIN MENU.   "
47 [153]"                                    "
48 [153]"    SELECT SECONDARY ADDRESS '10' FOR"
49 [153]"    FONTS+.   YOU MUST HAVE LOADED "
50 [153]"    FONTS+ PRIOR TO LOADING LABEL PRO."
51 [153]"            HIT  ANY  KEY WAIT
52 GET A$
53 IF A$=""THEN 52
54 FOR I=1TO 500
55 NEXTI
56 POKE198,0
57 RETURN
58 PRINT
59 PRINT"[158]    NOTE: IF YOU SELECT FROM (S)ET-"
60 PRINT"    UP PRINT, SECONDARY ADDRESS 0,"
61 PRINT"    IN ORDER TO VIEW THE UPPERCASE"
62 PRINT"    DEPRESS THE COMMODORE AND SHIFT"
63 PRINT"    KEYS SIMULTANEOUSLY.  THIS WILL"
64 PRINT"    TEMPORARILY CAUSE THE SCREEN"
65 PRINT"    FORMAT TO LOOK UNUSUAL IN PLACES"
66 PRINT"    AS IT WAS DESIGNED PRIMARILY"
67 PRINT"    FOR UPPER/LOWER CASE. ":PRINT
68 PRINT"    FONT SLOTS '1' AND '5' IN FONTS+"
69 PRINT"    MAY NOT NOT WORK PROPERLY IN ALL"
70 PRINT"    CASES AND MAY NEED TO BE AVOIDED."
71 PRINT"                                   "
72 PRINT"    FUTURE ENHANCEMENTS OF LABEL"
73 PRINT"    PRO WILL LOOK FOR SOLUTIONS TO "
74 PRINT"    THESE MINOR PROBLEMS.          "
75 PRINT"            HIT  ANY  KEY [146]
76 [161] B$
77 [139] B$[178]""[167] 76
78 [129] I[178]1[164] 500
79 [130]I
80 [151]198,0
81 [142]
82 [153]:[153]:[153]
83 [153]"    SYS(L)OAD LABEL PRO 4.1      "
84 [153]"    (R)E-READ DOCUMENTATION"
85 [153]"    (Q)UIT
86 GET G$
87 POKE198,0
88 IF G$<>"L"ANDG$<>"R"AND G$<>"Q" THEN 86
89 IF G$="R" THEN GOTO1
90 IF G$="Q" THEN GOTO96
91 IF G$="L" THEN 92
92 IF X=0 THEN X=1
93 PRINT"[147]LOAD";CHR$(34);"LABEL PRO4.1";CHR$(34);",8,1"
94 PRINT"":POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
95 NEW
96 SYS64738
97 PRINT"[144] "
98 GOSUB2:GOSUB10:CLR:GOSUB2:GOSUB34:GOSUB2:GOSUB58:GOSUB2:GOTO82